<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>6</cardCount>
<cardID>4210</cardID>
<listID>2113</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackhide menuBarHide tool windowset scroll of card field "Instructions" of card "First" to 0Set cursor to busySet userLevel to 5Set the visible of card field "mask return" of card "first" to true-- NECESSARY TO COMPENSATE FOR CHANGES IN FIELDS-- IN CARD "PLANETS" WHEN STACK IS CONVERTED TO HYPERCARD 2.0-- WITHOUT THIS EXTRA STEP, ONE LINE OF DATA WOULD WRAP INTO 2 LINESIf (first char of the version) is 2thenif dontWrap of cd field 1 of card "planets" is falsethenrepeat with f = 1 to 17set cursor to busyset dontWrap of cd field f of card "planets" to trueend repeatend ifend if-- "It's only a paper moon"If (highLight of card button "Turn off sound"¬of card "First") is false then Play harpsichord tempo 200¬"0e d4q de d5e dq de cq b4e ah 0e 0e d4q de c5 cq ce b4q ae gh" &&¬"0q d4q de d5e dq d#e eq ce a4q ge f#q e5e dq f#4e gh"Set cursor to busy--If HighLight of card button "Start with birth data entry" of¬card "First" thengo to card "Data Entry"Set the visible of card field "mask return" of card "first" to falseSet the visible of card field "mask birth data entry"¬of card "first" to falseelsego to card "First"end ifSet cursor to busy-- *************************************************-- ** Insert current time and date for Stockton **-- ** User: change this to your city if you wish **-- *************************************************--Put "Stockton, CA" into card field "Place"¬of card "Data entry"--Set cursor to busy--Put "37n58" into card field "Latitude"¬of card "Data entry"Put "121w17" into card field "Longitude"¬of card "Data entry"Put "08:00" into card field "Zone"¬of card "Data entry"Set cursor to busyPut "First enter name" into card field "Name"¬of card "Data entry"Set cursor to busy--put the seconds into dateconvert date to dateItemsput item 2 of date into monthNumberif monthNumber >= 4 and monthNumber <= 10then set hilite of card button "Daylight Savings" ¬of card "Data entry" to trueelse set hilite of card button "Daylight Savings" ¬of card "Data entry" to falseSet cursor to busy--put item 3 of date into dayNumberput item 1 of date into yearNumberSet cursor to busy--set hilite of card button "Unknown birthtime" of¬card "Data entry" to falseSet cursor to busy--put item 4 of date into hourNumberSet cursor to busy--if hourNumber < 12 thenset hilite of card button "pm" ¬of card "Data entry" to falseset hilite of card button "am" ¬of card "Data entry" to trueend ifSet cursor to busy--if hourNumber = 12 thenset hilite of card button "pm" ¬of card "Data entry" to trueset hilite of card button "am" ¬of card "Data entry" to falseend ifSet cursor to busy--If hourNumber > 12 thenSubtract 12 from hourNumberset hilite of card button "pm" ¬of card "Data entry" to trueset hilite of card button "am" ¬of card "Data entry" to falseend ifSet cursor to busy--put item 5 of date into minuteNumberSet cursor to busy--put monthNumber into card field "monthNumber" of card "Data entry"Set cursor to busy--put dayNumber into card field "dayNumber" of card "Data entry"Set cursor to busy--put yearNumber into card field "yearNumber" of card "Data entry"Set cursor to busy--put hourNumber into card field "hourNumber" of card "Data entry"Set cursor to busy--if minuteNumber < 10 then put "0" & minuteNumber into minuteNumberput minuteNumber into card field "minuteNumber" of card "Data entry"Set cursor to busy--Set hilite of card button "Placidus" of card "Data Entry" to trueSet hilite of card button "Koch" of card "Data Entry" to falseSet hilite of card butt
